Software of the Month Club 1996 May

home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / ZIPFILES / BMPWIZ.ZIP / LOGO.BAS < prev next >
Unknown | 1995-12-24 | 2.5 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| e1 09 00 00 0d 0a 27 20 | 43 72 65 61 74 65 73 20 |......' |Creates |
|00000010| 61 20 73 74 61 72 74 75 | 70 20 6c 6f 67 6f 20 73 |a startu|p logo s|
|00000020| 75 62 73 74 69 74 75 74 | 65 0d 0a 0d 0a 27 20 41 |ubstitut|e....' A|
|00000030| 75 74 68 6f 72 3a 09 41 | 6e 64 72 65 61 20 42 65 |uthor:.A|ndrea Be|
|00000040| 6e 6f 6e 69 09 09 09 20 | 72 65 76 3a 09 31 2e 32 |noni... |rev:.1.2|
|00000050| 0d 0a 0d 0a 0d 0a 66 6c | 6f 61 74 20 20 09 69 2c |......fl|oat  .i,|
|00000060| 6e 65 77 78 2c 6e 65 77 | 79 2c 72 2c 6b 2c 78 2c |newx,new|y,r,k,x,|
|00000070| 79 2c 78 73 2c 79 73 2c | 7a 0d 0a 44 65 76 43 6f |y,xs,ys,|z..DevCo|
|00000080| 6e 09 4f 62 6d 70 0d 0a | 52 47 42 09 70 69 78 0d |n.Obmp..|RGB.pix.|
|00000090| 0a 0d 0a 27 20 65 6c 69 | 6d 69 6e 61 74 65 20 74 |...' eli|minate t|
|000000a0| 68 69 73 20 74 77 6f 20 | 6c 69 6e 65 20 77 68 65 |his two |line whe|
|000000b0| 6e 20 79 6f 75 20 68 61 | 76 65 20 62 61 63 6b 75 |n you ha|ve backu|
|000000c0| 70 65 64 20 74 68 65 20 | 63 3a 5c 6c 6f 67 6f 2e |ped the |c:\logo.|
|000000d0| 73 79 73 20 66 69 6c 65 | 0d 0a 44 73 70 4d 65 73 |sys file|..DspMes|
|000000e0| 28 22 41 74 74 65 6e 74 | 69 6f 6e 20 74 68 69 73 |("Attent|ion this|
|000000f0| 20 70 72 6f 67 72 61 6d | 20 73 75 62 73 74 69 74 | program| substit|
|00000100| 75 74 65 20 74 68 65 20 | 73 74 61 72 74 20 6c 6f |ute the |start lo|
|00000110| 67 6f 20 6f 66 20 57 69 | 6e 64 6f 77 73 20 77 69 |go of Wi|ndows wi|
|00000120| 74 68 20 61 6e 20 6f 74 | 68 65 72 20 69 6d 61 67 |th an ot|her imag|
|00000130| 65 2e 20 59 6f 75 20 6d | 75 73 74 20 63 6c 65 61 |e. You m|ust clea|
|00000140| 72 20 74 68 69 73 20 77 | 61 72 6e 69 6e 67 20 69 |r this w|arning i|
|00000150| 6e 20 74 68 65 20 73 63 | 72 69 70 74 20 74 6f 20 |n the sc|ript to |
|00000160| 67 6f 20 61 68 65 61 64 | 2e 22 29 0d 0a 72 65 74 |go ahead|.")..ret|
|00000170| 75 72 6e 0d 0a 0d 0a 78 | 73 3d 33 32 30 0d 0a 79 |urn....x|s=320..y|
|00000180| 73 3d 34 30 30 0d 0a 4f | 62 6d 70 3d 43 72 65 61 |s=400..O|bmp=Crea|
|00000190| 74 65 49 6d 61 67 65 28 | 78 73 2c 79 73 2c 38 29 |teImage(|xs,ys,8)|
|000001a0| 0d 0a 53 65 74 50 61 6c | 65 74 74 65 28 4f 62 6d |..SetPal|ette(Obm|
|000001b0| 70 2c 31 2c 70 69 78 29 | 0d 0a 0d 0a 27 50 72 65 |p,1,pix)|....'Pre|
|000001c0| 70 61 72 65 20 72 6f 74 | 61 74 65 20 70 61 6c 65 |pare rot|ate pale|
|000001d0| 74 74 65 0d 0a 46 6f 72 | 20 79 3d 30 20 74 6f 20 |tte..For| y=0 to |
|000001e0| 36 33 0d 0a 20 20 20 70 | 69 78 2e 42 6c 75 65 3d |63..   p|ix.Blue=|
|000001f0| 79 2a 33 0d 0a 20 20 20 | 53 65 74 50 61 6c 65 74 |y*3..   |SetPalet|
|00000200| 74 65 28 4f 62 6d 70 2c | 79 2b 31 32 38 2c 70 69 |te(Obmp,|y+128,pi|
|00000210| 78 29 0d 0a 20 20 20 70 | 69 78 2e 42 6c 75 65 3d |x)..   p|ix.Blue=|
|00000220| 36 34 2d 79 2a 33 0d 0a | 20 20 20 53 65 74 50 61 |64-y*3..|   SetPa|
|00000230| 6c 65 74 74 65 28 4f 62 | 6d 70 2c 79 2b 31 39 32 |lette(Ob|mp,y+192|
|00000240| 2c 70 69 78 29 0d 0a 4e | 65 78 74 20 79 0d 0a 70 |,pix)..N|ext y..p|
|00000250| 69 78 2e 52 65 64 3d 30 | 0d 0a 70 69 78 2e 42 6c |ix.Red=0|..pix.Bl|
|00000260| 75 65 3d 30 0d 0a 70 69 | 78 2e 47 72 65 65 6e 3d |ue=0..pi|x.Green=|
|00000270| 32 35 35 0d 0a 53 65 74 | 50 61 6c 65 74 74 65 28 |255..Set|Palette(|
|00000280| 4f 62 6d 70 2c 31 2c 70 | 69 78 29 0d 0a 4f 62 6d |Obmp,1,p|ix)..Obm|
|00000290| 70 2e 43 6c 72 49 6d 70 | 3d 31 32 38 20 09 27 69 |p.ClrImp|=128 .'i|
|000002a0| 6e 66 6f 72 6d 20 77 69 | 6e 39 35 20 6f 66 20 75 |nform wi|n95 of u|
|000002b0| 70 70 65 72 20 6c 69 6d | 69 74 0d 0a 0d 0a 27 70 |pper lim|it....'p|
|000002c0| 61 69 6e 74 20 62 61 63 | 6b 67 72 6f 75 6e 64 0d |aint bac|kground.|
|000002d0| 0a 46 6f 72 20 79 3d 30 | 20 74 6f 20 4f 62 6d 70 |.For y=0| to Obmp|
|000002e0| 2e 48 65 69 67 68 74 2d | 31 0d 0a 20 20 20 69 3d |.Height-|1..   i=|
|000002f0| 31 32 38 2f 4f 62 6d 70 | 2e 48 65 69 67 68 74 2a |128/Obmp|.Height*|
|00000300| 79 2b 31 32 38 0d 0a 20 | 20 20 46 6f 72 20 78 3d |y+128.. |  For x=|
|00000310| 30 20 74 6f 20 4f 62 6d | 70 2e 57 69 64 74 68 2d |0 to Obm|p.Width-|
|00000320| 31 0d 0a 20 20 20 20 20 | 20 53 65 74 50 69 78 65 |1..     | SetPixe|
|00000330| 6c 56 61 6c 28 4f 62 6d | 70 2c 78 2c 79 2c 69 29 |lVal(Obm|p,x,y,i)|
|00000340| 0d 0a 20 20 20 4e 65 78 | 74 20 78 0d 0a 4e 65 78 |..   Nex|t x..Nex|
|00000350| 74 20 79 0d 0a 0d 0a 0d | 0a 27 20 70 61 69 6e 74 |t y.....|.' paint|
|00000360| 20 61 20 66 65 72 6e 0d | 0a 66 6f 72 20 69 3d 30 | a fern.|.for i=0|
|00000370| 20 74 6f 20 31 35 30 30 | 30 0d 0a 20 20 20 20 20 | to 1500|0..     |
|00000380| 72 3d 69 6e 74 28 72 61 | 6e 64 20 28 31 30 29 29 |r=int(ra|nd (10))|
|00000390| 0d 0a 20 20 20 20 20 69 | 66 28 72 3e 33 2e 39 29 |..     i|f(r>3.9)|
|000003a0| 0d 0a 20 20 20 20 20 20 | 20 20 72 3d 31 0d 0a 20 |..      |  r=1.. |
|000003b0| 20 20 20 20 65 6e 64 69 | 66 0d 0a 0d 0a 20 20 20 |    endi|f....   |
|000003c0| 20 20 20 20 27 20 66 65 | 6c 63 5b 34 5d 5b 33 5d |    ' fe|lc[4][3]|
|000003d0| 5b 34 5d 20 3d 20 7b 20 | 20 20 20 20 30 2c 20 20 |[4] = { |    0,  |
|000003e0| 20 30 2c 20 20 30 2c 20 | 20 30 2c 20 20 20 20 20 | 0,  0, | 0,     |
|000003f0| 20 20 20 30 2c 20 20 32 | 30 2c 20 20 20 30 2c 20 |   0,  2|0,   0, |
|00000400| 20 20 30 2c 20 20 20 20 | 20 20 30 2c 20 20 20 20 |  0,    |  0,    |
|00000410| 30 2c 20 20 30 2c 20 20 | 20 30 2c 0d 0a 20 20 20 |0,  0,  | 0,..   |
|00000420| 20 20 20 20 27 20 20 20 | 20 20 20 20 20 20 20 20 |    '   |        |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000440| 38 35 2c 20 20 20 30 2c | 20 20 30 2c 20 20 30 2c |85,   0,|  0,  0,|
|00000450| 20 20 20 20 20 20 20 20 | 30 2c 20 20 38 35 2c 20 |        |0,  85, |
|00000460| 31 31 2c 20 37 30 2c 20 | 20 20 20 20 20 30 2c 20 |11, 70, |     0, |
|00000470| 2d 31 30 2c 20 38 35 2c | 20 20 30 2c 0d 0a 20 20 |-10, 85,|  0,..  |
|00000480| 20 20 20 20 20 27 20 20 | 20 20 20 20 20 20 20 20 |     '  |        |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004a0| 20 33 31 2c 20 2d 34 31 | 2c 20 20 30 2c 20 20 30 | 31, -41|,  0,  0|
|000004b0| 2c 20 20 20 20 20 31 30 | 2c 20 20 32 31 2c 20 20 |,     10|,  21,  |
|000004c0| 20 30 2c 20 32 31 2c 20 | 20 20 20 20 20 30 2c 20 | 0, 21, |     0, |
|000004d0| 20 20 20 30 2c 20 33 30 | 2c 20 20 30 2c 0d 0a 20 |   0, 30|,  0,.. |
|000004e0| 20 20 20 20 20 20 27 20 | 20 20 20 20 20 20 20 20 |      ' |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 2d 32 39 2c 20 20 34 | 30 2c 20 20 30 2c 20 20 | -29,  4|0,  0,  |
|00000510| 30 2c 20 20 20 20 20 31 | 30 2c 20 20 31 39 2c 20 |0,     1|0,  19, |
|00000520| 20 20 30 2c 20 35 36 2c | 20 20 20 20 20 20 30 2c |  0, 56,|      0,|
|00000530| 20 20 20 20 30 2c 20 33 | 30 2c 20 20 30 20 7d 3b |    0, 3|0,  0 };|
|00000540| 0d 0a 0d 0a 20 20 20 20 | 20 20 20 20 69 66 28 72 |....    |    if(r|
|00000550| 3d 30 29 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |=0)..   |        |
|00000560| 6e 65 77 78 20 3d 20 28 | 28 20 30 20 2a 20 78 29 |newx = (|( 0 * x)|
|00000570| 20 2b 28 20 20 20 30 20 | 2a 20 79 29 20 2b 28 30 | +(   0 |* y) +(0|
|00000580| 20 2a 20 7a 29 29 20 2f | 20 31 30 30 20 2b 20 30 | * z)) /| 100 + 0|
|00000590| 0d 0a 20 20 20 20 20 20 | 20 20 20 20 20 6e 65 77 |..      |     new|
|000005a0| 79 20 3d 20 28 28 20 30 | 20 2a 20 78 29 20 2b 28 |y = (( 0| * x) +(|
|000005b0| 20 32 30 20 2a 20 79 29 | 20 2b 28 30 20 2a 20 7a | 20 * y)| +(0 * z|
|000005c0| 29 29 20 2f 20 31 30 30 | 20 2b 20 30 0d 0a 20 20 |)) / 100| + 0..  |
|000005d0| 20 20 20 20 20 20 20 20 | 20 7a 20 3d 20 20 20 20 |        | z =    |
|000005e0| 20 20 20 28 28 20 30 20 | 2a 20 78 29 20 2b 28 20 |   (( 0 |* x) +( |
|000005f0| 20 20 30 20 2a 20 79 29 | 20 2b 28 30 20 2a 20 7a |  0 * y)| +(0 * z|
|00000600| 29 29 20 2f 20 31 30 30 | 20 2b 20 30 0d 0a 20 20 |)) / 100| + 0..  |
|00000610| 20 20 20 20 20 20 65 6e | 64 69 66 0d 0a 20 20 20 |      en|dif..   |
|00000620| 20 20 20 20 20 69 66 28 | 72 3d 31 29 0d 0a 20 20 |     if(|r=1)..  |
|00000630| 20 20 20 20 20 20 20 20 | 20 6e 65 77 78 20 3d 20 |        | newx = |
|00000640| 28 28 20 38 35 20 2a 20 | 78 29 20 2b 28 20 20 20 |(( 85 * |x) +(   |
|00000650| 20 20 20 30 20 2a 20 79 | 29 20 2b 28 20 20 30 20 |   0 * y|) +(  0 |
|00000660| 2a 20 7a 29 29 20 2f 20 | 31 30 30 20 2b 20 20 20 |* z)) / |100 +   |
|00000670| 30 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 6e 65 |0..     |      ne|
|00000680| 77 79 20 3d 20 28 28 20 | 20 20 30 20 2a 20 78 29 |wy = (( |  0 * x)|
|00000690| 20 2b 28 20 20 20 38 35 | 20 2a 20 79 29 20 2b 28 | +(   85| * y) +(|
|000006a0| 31 31 20 2a 20 7a 29 29 | 20 2f 20 31 30 30 20 2b |11 * z))| / 100 +|
|000006b0| 20 37 30 0d 0a 20 20 20 | 20 20 20 20 20 20 20 20 | 70..   |        |
|000006c0| 7a 20 3d 20 20 20 20 20 | 20 20 20 28 28 20 20 20 |z =     |   ((   |
|000006d0| 30 20 2a 20 78 29 20 2b | 28 2d 31 30 20 2a 20 79 |0 * x) +|(-10 * y|
|000006e0| 29 20 2b 28 38 35 20 2a | 20 7a 29 29 20 2f 20 31 |) +(85 *| z)) / 1|
|000006f0| 30 30 20 2b 20 20 30 0d | 0a 20 20 20 20 20 20 20 |00 +  0.|.       |
|00000700| 20 65 6e 64 69 66 0d 0a | 20 20 20 20 20 20 20 20 | endif..|        |
|00000710| 69 66 28 72 3d 32 29 0d | 0a 20 20 20 20 20 20 20 |if(r=2).|.       |
|00000720| 20 20 20 20 6e 65 77 78 | 20 3d 20 28 28 20 33 31 |    newx| = (( 31|
|00000730| 20 2a 20 78 29 20 2b 28 | 20 2d 34 31 20 2a 20 79 | * x) +(| -41 * y|
|00000740| 29 20 2b 28 20 30 20 2a | 20 7a 29 29 20 2f 20 31 |) +( 0 *| z)) / 1|
|00000750| 30 30 20 2b 20 20 20 30 | 0d 0a 20 20 20 20 20 20 |00 +   0|..      |
|00000760| 20 20 20 20 20 6e 65 77 | 79 20 3d 20 20 28 28 20 |     new|y =  (( |
|00000770| 31 30 20 2a 20 78 29 20 | 2b 28 20 20 20 20 20 20 |10 * x) |+(      |
|00000780| 32 31 20 2a 20 79 29 20 | 2b 28 20 30 20 2a 20 7a |21 * y) |+( 0 * z|
|00000790| 29 29 20 2f 20 31 30 30 | 20 2b 20 32 31 0d 0a 20 |)) / 100| + 21.. |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 7a 20 3d 20 20 20 |        |  z =   |
|000007b0| 20 20 20 20 20 28 28 20 | 20 20 20 30 20 2a 20 78 |     (( |   0 * x|
|000007c0| 29 20 2b 28 20 20 20 20 | 20 20 20 30 20 2a 20 79 |) +(    |   0 * y|
|000007d0| 29 20 2b 28 33 30 20 2a | 20 7a 29 29 20 2f 20 31 |) +(30 *| z)) / 1|
|000007e0| 30 30 20 2b 20 20 30 0d | 0a 20 20 20 20 20 20 20 |00 +  0.|.       |
|000007f0| 20 65 6e 64 69 66 0d 0a | 20 20 20 20 20 20 20 20 | endif..|        |
|00000800| 69 66 28 72 3d 33 29 0d | 0a 20 20 20 20 20 20 20 |if(r=3).|.       |
|00000810| 20 20 20 20 6e 65 77 78 | 20 3d 20 28 28 20 2d 32 |    newx| = (( -2|
|00000820| 39 20 2a 20 78 29 20 2b | 28 20 34 30 20 2a 20 79 |9 * x) +|( 40 * y|
|00000830| 29 20 2b 28 20 20 30 20 | 2a 20 7a 29 29 20 2f 20 |) +(  0 |* z)) / |
|00000840| 31 30 30 20 2b 20 20 20 | 30 0d 0a 20 20 20 20 20 |100 +   |0..     |
|00000850| 20 20 20 20 20 20 6e 65 | 77 79 20 3d 20 28 28 20 |      ne|wy = (( |
|00000860| 20 20 20 20 31 30 20 2a | 20 78 29 20 2b 28 20 31 |    10 *| x) +( 1|
|00000870| 39 20 2a 20 79 29 20 2b | 28 20 20 30 20 2a 20 7a |9 * y) +|(  0 * z|
|00000880| 29 29 20 2f 20 31 30 30 | 20 2b 20 35 36 0d 0a 20 |)) / 100| + 56.. |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 7a 20 3d 20 20 20 |        |  z =   |
|000008a0| 20 20 20 20 20 28 28 20 | 20 20 20 20 20 20 20 30 |     (( |       0|
|000008b0| 20 2a 20 78 29 20 2b 28 | 20 20 20 30 20 2a 20 79 | * x) +(|   0 * y|
|000008c0| 29 20 2b 28 33 30 20 2a | 20 7a 29 29 20 2f 20 31 |) +(30 *| z)) / 1|
|000008d0| 30 30 20 2b 20 20 30 0d | 0a 20 20 20 20 20 20 20 |00 +  0.|.       |
|000008e0| 20 65 6e 64 69 66 0d 0a | 20 20 20 20 20 20 20 20 | endif..|        |
|000008f0| 78 3d 6e 65 77 78 0d 0a | 20 20 20 20 20 20 20 20 |x=newx..|        |
|00000900| 79 3d 6e 65 77 79 0d 0a | 0d 0a 20 20 20 20 20 20 |y=newy..|..      |
|00000910| 20 20 20 53 65 74 50 69 | 78 65 6c 56 61 6c 28 4f |   SetPi|xelVal(O|
|00000920| 62 6d 70 2c 78 2b 7a 2f | 32 2b 31 38 30 2c 33 35 |bmp,x+z/|2+180,35|
|00000930| 30 2d 28 79 2f 31 2e 32 | 29 2c 31 29 0d 0a 0d 0a |0-(y/1.2|),1)....|
|00000940| 20 20 20 69 66 20 28 20 | 69 25 31 30 30 30 3d 30 |   if ( |i%1000=0|
|00000950| 29 0d 0a 20 20 20 20 20 | 20 50 72 65 76 69 65 77 |)..     | Preview|
|00000960| 28 4f 62 6d 70 2c 22 4f | 75 74 70 75 74 22 2c 35 |(Obmp,"O|utput",5|
|00000970| 2c 35 2c 4f 62 6d 70 2e | 57 69 64 74 68 2b 31 30 |,5,Obmp.|Width+10|
|00000980| 2c 4f 62 6d 70 2e 48 65 | 69 67 68 74 2b 33 30 29 |,Obmp.He|ight+30)|
|00000990| 09 0d 0a 20 20 20 65 6e | 64 69 66 0d 0a 4e 65 78 |...   en|dif..Nex|
|000009a0| 74 20 69 0d 0a 0d 0a 53 | 61 76 65 49 6d 61 67 65 |t i....S|aveImage|
|000009b0| 28 4f 62 6d 70 2c 22 63 | 3a 5c 6c 6f 67 6f 2e 73 |(Obmp,"c|:\logo.s|
|000009c0| 79 73 22 29 0d 0a 0d 0a | 44 73 70 57 68 69 6c 65 |ys")....|DspWhile|
|000009d0| 28 22 22 2c 30 29 0d 0a | 44 73 70 4d 65 73 28 22 |("",0)..|DspMes("|
|000009e0| 45 6e 64 22 29          |                         |End")   |        |
+--------+-------------------------+-------------------------+--------+--------+